home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / disablpr / frmdisab.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-08-14  |  7.1 KB  |  207 lines
  1. VERSION 4.00
  2. Begin VB.Form frmDisableMiscExample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "DisableMisc Example"
  5.    ClientHeight    =   3525
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5130
  9.    Height          =   3930
  10.    Left            =   -15
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   3525
  14.    ScaleWidth      =   5130
  15.    Top             =   -15
  16.    Width           =   5250
  17.    Begin VB.CommandButton cmdExit 
  18.       Caption         =   "E&xit"
  19.       Height          =   375
  20.       Left            =   120
  21.       TabIndex        =   10
  22.       Top             =   3120
  23.       Width           =   4935
  24.    End
  25.    Begin VB.CommandButton cmdSaveSettings 
  26.       Caption         =   "Disable Save Settings On Exit"
  27.       Height          =   495
  28.       Left            =   2640
  29.       TabIndex        =   9
  30.       Top             =   2520
  31.       Width           =   2415
  32.    End
  33.    Begin VB.CommandButton cmdEntireNetwork 
  34.       Caption         =   "Disable Entire Network in Network Neighborhood"
  35.       Height          =   495
  36.       Left            =   120
  37.       TabIndex        =   8
  38.       Top             =   720
  39.       Width           =   2415
  40.    End
  41.    Begin VB.CommandButton cmdNetHood 
  42.       Caption         =   "Disable Network Neighborhood"
  43.       Height          =   495
  44.       Left            =   2640
  45.       TabIndex        =   7
  46.       Top             =   120
  47.       Width           =   2415
  48.    End
  49.    Begin VB.CommandButton cmdDrives 
  50.       Caption         =   "Disable Drives"
  51.       Height          =   495
  52.       Left            =   120
  53.       TabIndex        =   6
  54.       Top             =   120
  55.       Width           =   2415
  56.    End
  57.    Begin VB.CommandButton cmdSingleMSDOSPrograms 
  58.       Caption         =   "Disable Single-Mode MSDOS Programs"
  59.       Height          =   495
  60.       Left            =   120
  61.       TabIndex        =   5
  62.       Top             =   2520
  63.       Width           =   2415
  64.    End
  65.    Begin VB.CommandButton cmdMSDOS 
  66.       Caption         =   "Disable MSDOS"
  67.       Height          =   495
  68.       Left            =   120
  69.       TabIndex        =   4
  70.       Top             =   1920
  71.       Width           =   2415
  72.    End
  73.    Begin VB.CommandButton cmdRegistryTools 
  74.       Caption         =   "Disable Registry Tools"
  75.       Height          =   495
  76.       Left            =   2640
  77.       TabIndex        =   3
  78.       Top             =   1920
  79.       Width           =   2415
  80.    End
  81.    Begin VB.CommandButton cmdPrintSharing 
  82.       Caption         =   "Disable Printer Sharing"
  83.       Height          =   495
  84.       Left            =   2640
  85.       TabIndex        =   2
  86.       Top             =   1320
  87.       Width           =   2415
  88.    End
  89.    Begin VB.CommandButton cmdFileSharing 
  90.       Caption         =   "Disable File Sharing"
  91.       Height          =   495
  92.       Left            =   120
  93.       TabIndex        =   1
  94.       Top             =   1320
  95.       Width           =   2415
  96.    End
  97.    Begin VB.CommandButton cmdPasswordCaching 
  98.       Caption         =   "Disable Password Caching"
  99.       Height          =   495
  100.       Left            =   2640
  101.       TabIndex        =   0
  102.       Top             =   720
  103.       Width           =   2415
  104.    End
  105.    Begin DisablePro.DisableMisc DisableMisc1 
  106.       Left            =   1680
  107.       Top             =   2760
  108.       _ExtentX        =   900
  109.       _ExtentY        =   926
  110.    End
  111. Attribute VB_Name = "frmDisableMiscExample"
  112. Attribute VB_Creatable = False
  113. Attribute VB_Exposed = False
  114. Private Sub cmdDrives_Click()
  115.     If cmdDrives.Caption = "Disable Drives" Then
  116.         DisableMisc1.DisableDrives = True
  117.         cmdDrives.Caption = "Enable Drives"
  118.     Else
  119.         cmdDrives.Caption = "Disable Drives"
  120.         DisableMisc1.DisableDrives = False
  121.     End If
  122. End Sub
  123. Private Sub cmdEntireNetwork_Click()
  124.     If cmdEntireNetwork.Caption = "Disable Entire Network in Network Neighborhood" Then
  125.         DisableMisc1.DisableEntireNetwork = True
  126.         cmdEntireNetwork.Caption = "Enable Entire Network in Network Neighborhood"
  127.     Else
  128.         cmdEntireNetwork.Caption = "Disable Entire Network in Network Neighborhood"
  129.         DisableMisc1.DisableEntireNetwork = False
  130.     End If
  131. End Sub
  132. Private Sub cmdExit_Click()
  133.     End
  134. End Sub
  135. Private Sub cmdFileSharing_Click()
  136.     If cmdFileSharing.Caption = "Disable File Sharing" Then
  137.         DisableMisc1.DisableFileSharing = True
  138.         cmdFileSharing.Caption = "Enable File Sharing"
  139.     Else
  140.         cmdFileSharing.Caption = "Disable File Sharing"
  141.         DisableMisc1.DisableFileSharing = False
  142.     End If
  143. End Sub
  144. Private Sub cmdMSDOS_Click()
  145.     If cmdMSDOS.Caption = "Disable MSDOS" Then
  146.         DisableMisc1.DisableMSDOS = True
  147.         cmdMSDOS.Caption = "Enable MSDOS"
  148.     Else
  149.         cmdMSDOS.Caption = "Disable MSDOS"
  150.         DisableMisc1.DisableMSDOS = False
  151.     End If
  152. End Sub
  153. Private Sub cmdNetHood_Click()
  154.     If cmdNetHood.Caption = "Disable Network Neighborhood" Then
  155.         DisableMisc1.DisableNetHood = True
  156.         cmdNetHood.Caption = "Enable Network Neighborhood"
  157.     Else
  158.         cmdNetHood.Caption = "Disable Network Neighborhood"
  159.         DisableMisc1.DisableNetHood = False
  160.     End If
  161. End Sub
  162. Private Sub cmdPasswordCaching_Click()
  163.     If cmdPasswordCaching.Caption = "Disable Password Caching" Then
  164.         DisableMisc1.DisablePasswordCaching = True
  165.         cmdPasswordCaching.Caption = "Enable Password Caching"
  166.     Else
  167.         cmdPasswordCaching.Caption = "Disable Password Caching"
  168.         DisableMisc1.DisablePasswordCaching = False
  169.     End If
  170. End Sub
  171. Private Sub cmdPrintSharing_Click()
  172.     If cmdPrintSharing.Caption = "Disable Printer Sharing" Then
  173.         DisableMisc1.DisablePrinterSharing = True
  174.         cmdPrintSharing.Caption = "Enable Printer Sharing"
  175.     Else
  176.         cmdPrintSharing.Caption = "Disable Printer Sharing"
  177.         DisableMisc1.DisablePrinterSharing = False
  178.     End If
  179. End Sub
  180. Private Sub cmdRegistryTools_Click()
  181.     If cmdRegistryTools.Caption = "Disable Registry Tools" Then
  182.         DisableMisc1.DisableRegistryTools = True
  183.         cmdRegistryTools.Caption = "Enable Registry Tools"
  184.     Else
  185.         cmdRegistryTools.Caption = "Disable Registry Tools"
  186.         DisableMisc1.DisableRegistryTools = False
  187.     End If
  188. End Sub
  189. Private Sub cmdSaveSettings_Click()
  190.     If cmdSaveSettings.Caption = "Disable Save Settings On Exit" Then
  191.         DisableMisc1.DisableSaveSettings = True
  192.         cmdSaveSettings.Caption = "Enable Save Settings On Exit"
  193.     Else
  194.         cmdSaveSettings.Caption = "Disable Save Settings On Exit"
  195.         DisableMisc1.DisableSaveSettings = False
  196.     End If
  197. End Sub
  198. Private Sub cmdSingleMSDOSPrograms_Click()
  199.     If cmdSingleMSDOSPrograms.Caption = "Disable Single-Mode MSDOS Programs" Then
  200.         DisableMisc1.DisableSingleMSDOSPrograms = True
  201.         cmdSingleMSDOSPrograms.Caption = "Enable Single-Mode MSDOS Programs"
  202.     Else
  203.         cmdSingleMSDOSPrograms.Caption = "Disable Single-Mode MSDOS Programs"
  204.         DisableMisc1.DisableSingleMSDOSPrograms = False
  205.     End If
  206. End Sub
  207.